home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / src / cmds / perl / dist / msdos / eg / lf.bat < prev   
DOS Batch File  |  1991-06-10  |  940b  |  34 lines
  1. @REM=("
  2. @perl %0.bat %1 %2 %3 %4 %5 %6 %7 %8 %9
  3. @end ") if 0 ;
  4.  
  5. # Convert all the files in the current directory from MS-DOS to unix
  6. # line ending conventions.
  7. #
  8. # By Diomidis Spinellis
  9. #
  10. open(FILES, 'find . -print |');
  11. while ($file = <FILES>) {
  12.     $file =^ s/[\n\r]//;
  13.     if (-f $file) {
  14.         if (-B $file) {
  15.             print STDERR "Skipping binary file $file\n";
  16.             next;
  17.         }
  18.         ($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, $atime, $mtime, $ctime,
  19.  $blksize, $blocks) = stat($file);
  20.         open(IFILE, "$file");
  21.         open(OFILE, ">xl$$");
  22.         binmode OFILE || die "binmode xl$$: $!\n";
  23.         while (<IFILE>) {
  24.             print OFILE;
  25.         }
  26.         close(OFILE) || die "close xl$$: $!\n";
  27.         close(IFILE) || die "close $file: $!\n";
  28.         unlink($file) || die "unlink $file: $!\n";
  29.         rename("xl$$", $file) || die "rename(xl$$, $file): $!\n";
  30.         chmod($mode, $file) || die "chmod($mode, $file: $!\n";
  31.         utime($atime, $mtime, $file) || die "utime($atime, $mtime, $file): $!\n";
  32.     }
  33. }
  34.